Data Documenis/inc. 


! 
i 


LABEL QOOQOQQOOOOPRINTEROOL75096CC EX OBUECT/REAUSFILE SUURCEF ILE=SYMBUL/MERGSENDe OBJECT “READ 


=” 
Y 
i 
| 
1 
b | 
i 
1 
i 
| 
| 


rn nr ne 


[Retreat neat ee me mat fe amie me a nm Anan Pm Oe vonage ateveee ogee aan im eineCie tie opp momanmsetenist eee ge een or 


o © ~~ OD om fF & NS 


= 


ee tn en ene ae tne ak ce nest ty vm nate a eg . 
221@ 
Parone _ nam am ai in mans _ me. eto mine a, me. ‘ee - aa ee _ ms Fe se le ee fe a nea a sn ncn 3g 


a aa a ee nent NP a Et, Seal me a eS oR eer erg 


40) 
al® 
i Te lod [a A AS eee Lee Fee ae 4m 
4 
‘ 
a@ 
set ate eaten mS in come sateen net «eat ot te hi ina Sassi ees roe amen. Ca en, Aa er EE te bi 
«7@ 


tebe aca i a aden RS Fe ee eects tannin ae ad etl ee ee, 


emer neereree amantadine menses ii neater ttt tee tren tert vera 


@,; q 
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Sees oeen ee tae BURROUGHS CORPORATIONs DETROIT, MICHIGAN 48232 000000» OOOl0116 ere! 6 
f * * 00010117 c 
@: * COPYRIGHT (C) 19715 1972 BURROUGHS CORPORATION * 00010118 /@ 
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16) BOOLEAN BRAAK »DEL TOG sMERGREAD,RESEQe+ KE VTOGs SEQCHK » SFLGs SUPPRESSpOK3 00010800 bee 
eo” BOULEAN MAKTAB3 00010810 |@ 
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e* QUISEQs Pc» PREVSEG+ ReCce SOURCESE@» STRIDELETED STRTRESEGs USER;00011300 23@ 
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25 REAL STREAM PROCEDURE HORCFeN)3 VALUE NZ 00011500 Bs 
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BEGIN REAL SEQ3 00013420 46 
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Be  S1TtsSVs DLtsSV3 BCIE SCE" " TheEN STSeST+1 ELSE OStSCHRIS 2 OuUL4o1O..U 
: DSte16L1T") . "3 00014920 
8 END STREAM PROCEDURE INFORMUSERS 00014930 
[pe erate ed et EER leh teh felch ae a IE LTPPD weeeeenQOUE5000 | — ee 
0 STREAM PROCEDURE MAKERRCERRsN1eN2)s VALUE NioN2s 00045100 
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Beene ene BEGIN LOCAL SVS Bia eel eas ean heed oti Le a COOOL a OOS 2 5. Bei a Ree ee AEA ttt et 
Vi DISszERR; DStai5LIT"SEQUENCE “ERRORE* 3 | SVt=DI3_ 00915400 
14 STssLOC Nis DSts8 DECS DIt=Svs DSts7F ILL; 000155800 
aces ae  OLtsSV3 BLsepl+Bs OSMzQLIT" = "5 Sea Pa cacto, Sst cihste type asiete Beds aie se een ot oes OO UO Oars Pea see ae are PP Se ee 
v6 SvssO013 SIss_Loc N23 DSts8DEC3 DItsSys DSt=7F ILL 00015700 
uM END STREAM PROCEDURE MAKERR3 00015800 
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7 PROCEDURE ERROR(N{sN2)3 VALUE NieN2s REAL NieN2 00016000 
ety tsnsenseesuensetasasvstsssnvesisatvessvenssanstenstanseasteaseasnesss400016100 
Ay. BEGIN. . EAD OD hi i ess Peas ibd ee tias ertid stay chR eee e lum kes 2h. tee. OOM OO Oiel nt a rece oer 
Re MAKERRCERR#NL9N2)3 TWXQUTCERRLO1 339 1)5 00016300 
23 END PROCEDURE ERRCR3 00016400 
Pe BI III GIGI ICICI ICICI IIDC UIIUIOI ICICI OIG OI OOO BOI OI i i ete tee 90944 0.00120500 eee ae ee ee ee 
Bs ALOJtz203 DISKWAITC15A,30%COMMON)3 % GET ESP RECURD 00016600 
Re USER t= Afl2]3 00016700 
Ce —..-- -OUTCONVCLINE ALL I .£9C18))5 % DECIMAL LINE NUMBER 0 90OR6 ROO 
8 IF (MAKTABS=A(9).(6%12]E"45") THEN &* TAB FILES ReQuUyRED 00016810 
FILL NEWTAB WITH " RMIT C OP SOT 1SIELINEL182730818),USER; 00016900 
: tetra ce tat Ro Ue AEG POL Lecce We TG Pee I a a sca ak cs Ae Ma te ee SOOT OO cok ee et 
\ FILL OUTFIL WITH AL9Js USERS % QUTPUT FILE NAME 00017100 
7 FILL SOURCEFIL WITH AL10],USER3 00017200 
pp LE RES ED. $5 ALS T NED CTH cee we cores ener ODE BOO ce cece 
BEGIN 00017400 
cs STRTRESEQ?=A(5]5 & LUWER BOUND FuR RESEGUENCE 00017500 
ioe eee _NORESEQ@ $2AC6)3 % UPPER BOUND FCR RESEQUENCE 0047600 
Pr INCR tsA(8]3 % RESEQUENCE INCREMENT 00017700 
a BASE SsAL7IJ*IACRS ¥ RESEQUENCE BASE} 00017800 
ee Ba eh a a Bat cog fo a Ni tein ce IE OO oh Sect ht Ses ne cd ch 
Ci IF DELTOG ‘= AaCil] NE@ O THEN % DELETING PART OF SUURCEFILE 00018000 
ie BEGIN 0018100 
meee ncn neem <1 (01 2 C2 ite Se Oo ec : roeeyet - 00018200 7 gees 
ep ENDELETE t= AL12]3 00018300 
Ma SUPPRESS t= TRUEs % DONT PRINT NUMBER MERGED 00018400 
ig ae eetcecemeeetnremrae ©). 10's elem eae (eee aie ie eee Cl eee a iat one et Gui Tho ie Go OD PAB OO 224! oo oo ens a 
NPARAMS t= AC1],(273 613 % PARAMETER COUNT. 00018600 
y SFLG = ALLI],C321]=05 © UNs TF TYPE bDATa FILES 00018700 
(re ___REVTOG t= ACL],¢5t1]= s1% % REVERSE MERGE ao 00018759 2 ae Ree, 
9 SUPPRESS t= (ACL}.(8%1]51) OR SUPPRESS} % SUPPRESS MESSAGES 00018800 
PREVSEQ t= NCT 8% #43 00018900 
REC ts 03 Kin dante aS oleae SUR is doe ee et Nh ine tee le ne eee oe DOU LO OO 
EQFMARK %=1000000003 00019100 
READCSOURCEFIL® 100 AC*# I) LEMPTYI; 00019200 
__ SOURCESEQ@ %= INPCONVCAL9I])4 GO TU Fults oe 00193900 | we eh, 
EMPTY: SOURCESEQ %!2 EQOFMARKS , 00919400 
FuLLs 00019500 
Jae F_SEQCHK $= NPARAMS GTR O THEN & PARAMETERS SPECIFIED sss 00 
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A RECt#03 NPARAMSI=\PARAMS@13 MERGESEGQI=PC! S717 LRECI=L3 00020000 
ee: NEXTPARAMS 00020100 1@ 
4 “LRANGE! =HRANGES -=PARAMSEPCi=rCt+l)) 00020306 4 
@ |: IF LRANGE®10000000C THEN & “Ewo" 00020400 |@ 
6 —_ _ BEGIN pleas a teatgh A EUs ee Bette atone SOUP OU SOO e vce ii tone o _ Se ee ee 
" READ(MERGFILCECFPIA]>14s6(*)) [EOF MERG)$ READ (MERGF ILD} 00020600 7 
i GO TO HAVEMERGS 00020700 3|@ 
pose eee EN Se nee ees one eee ir eereene © 67-401 181 0 a a ee eee OO cae ae aR 
10) IF PC LSS NPARAMS THEN & MOME PARAMETERS “AVATLABLE | 00020900 
e) IF PARAMSLPC414 Ci:iJet THEW ® RANGE SPECIFIES 00021006 1@ 
[?—_.__.. HRANGES=PARAMSIPCt=Pe+qi Carte? dy I cata Se ea hairs hat la ea oa ante a is 
13 IF NOT SFLG THEN RECORD LUCATIUN SPECIFIEL 00021200 
@ |. BEGIN 00021300 1@ 
So READ SEEKCMERGFILELRECtSLRANGE“1])5° eto s—s—i—‘—i‘“‘i‘i 9 
16 GO TO READMERGS & SKIP RI WARY Of akCr O0oCE1L500 
r aw END? 0u021606 ; /@ 
bei pee AE MERGE SEQ = LRANGE THEN % ALKEAUY rave THis ReCOKD oo wougi7zes. | ww ie 
o BEGIN LREC#=LREC + 13 GO TU HAVEMERGS ENUS 00v21800 | “ps 
@ : IF CEOFPTR=LREC) LSS 30 THEN GO TQ READMERGS &% SKIP BINARY SEARCH 00021900 2j@ 
a RECTELRECHCEGFPTR"LREC) DIV 23 % START InN THE CENTER OF RANGE = OoU22000. . if 
ie GO TO TESTREAD3 00022100 P e 
@ DO BEGIN 00022200 23 
a LR. LRANGE LSS MERGESES THEN. & MOVE BACKs NUT SSC 0022300. i isiwa(‘ai‘ i 
p  RECTS(RECESREC™ADV)XREAL(RECel1$1)50) ELSE & MOVE UP 000¢2400 2 
@ IF RECts(LREC?sREC)+ADJ GTR EGFPTR THEN RECS RE OFPIRS 00022500 P| @ 
1 TESTREADS. bce eWe ae ON sala ene alee Mea ctl ai ales nbn Sta Roa IO LOB... aed ee ee ee 2 
REAOCMERGFILERECI*14eBL*))3 00022700 ‘@ 
@ MERGESEQ?=INPCCAVCBE9])3 00022800 ps 
pn MERGESEQELRANGE THEN % MATCHING RECORD ——Si DOU 2000 ate aa ohs et  e yeek 30 
oH BEGIN LREC:sREC3 READCMERGFIL)$ GO TO HAVEMERG? ENDS 00023000 } re 
@» ADJIS(REC*LREC) DIV 23 — 00023400 p2 
END UNTIL ADY Lee a3 See eens Mets eo OUP AP OO eae une decnier@et ots et oo eee eee 3 
READ SEEKCMERGFILELRECI)} & NUT FOUND IN BINARY SEARCH) GU BACK 0002330C 3 
@« ENDS & IF PARAMETERS SPECIFIED 00023400 23 @ 
Flee oM, ete oe ate nee BOSS 6 Seni ee ee Saar ol ts eld at OR ee oe pee ee, AO ee OUP IS OO ns tat SN ACER Saati a ys ener i St Sh et = 
p? READMERG! 00023600 7 
@ Bevoeccne 00023700 34 @ 
pS READCMERGFIL®LO,BE*¥JICEQFMERG)s 0023800” ee ne eS ee Oe ee = 
““ | LREC t= LREC + 43 00023900 ‘ 
e MERGESEQ@ t= IF SFLG THEN INPCUNV(BL92) ELSE LRECS 00024000 |@ 
| JF SEQCHK THEN _ A a A Rm i a en, OER LOO ee een eet ene S Pe cee 42 
BEGIN 00024200 | ‘ 
e IF MERGESEQ LSS LRANGE THEN GO TU REAOMERGs % TOU re 00024300 @ 
___.... IF MERGESEQ@ GTR HRANGE THEN * TOU HIGH | Dia ee ee let OOO RREOO ene 20 ag 
IF SEQCHKt=PC LSS NPARAMS THEN GU NEXTPAKAM ELSE GO EOFMERG? 00024500 Hi 
r END3 % IF SEQCHK 00024600 . |W 
See ee a a er eee De pret cant 7 OOVE4700 Bee a! 48 
HAVEMERG! | 00024800 49 
@ Ciel eons ae 00024900 5 @ 
__QUTSEQ ¢* MERGESEQ#s Oe eg Yi ate pce es Aa pee eh eh Id eg ae AON seca Le ewe 31 
NMG t= NMG + 13 00025400 5 
If RESEQ THEN % RESEGUENCE THE MERGE FILE 00025200 1 @ 
IF OK OR MERGESEO Ge@ STRTRESEW THEN 00025300, : 
TF RESEQ@s20K%=MERGESEC LEQ ENDRESEG@ THEN & RECORDS ARE IN RANGE 00025400 58 
BEGIN | 00025500 | @ 
Q UTSE@ t= BASE t= BASE + INCRS % CALCULA TE_NEM SEQe NUMBER 0005600 yy 
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MART TeCOUTE LL Lone BCwJ)$ LASTMERGE?20UTSEQs pe BO 36 
u IF MAKTAB THEN 00029350 ie 
38 NENPTRIS SORCNCTPSNCTH1 042322 16 )60UTSEUL21LI21°2713 00029400 31 @ 
iat _._.. 40 TO READMERG3 _ ote ah ee Se aS a ee ee a Se Oe 90029500 
ld END 00029600 20 
1 % OUTSEQ@ = SOURCESEG 00029700 1@ 
falda _MERGREAD#STRUES & IW CASE OF EOF BRANCH of 00069800 ; spe El I se a Ten an et ete II 
Ks IF REVTOG THEN 00029900 . 4 
laa BEGIN 00029910: 4@ 
fi WRITECOUTFYLe 105804195 LASTMEWGES=OUTSEQS) = eget : 
END 00029930 ‘9 
ELSE 00030000 7 @ 
_ BEGIN, pees eee ROR oc ae Ae ee OND 00030010 Ea eer ian ta cect tiger la tS END Pe i ede, baWeale de tafe hs hee 48 
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ENDS 00030030 1@ 
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(i BEGIN 000zZ6000 ' 1 
e L IF NOT BRAAK THEN ERRORCPREVSEQ*UUTSEQ)3 & TELL THE USER 00026100 1@ 
| CCU TSEQ 8= PREVSEQ + 23 % ADJUST SEQUENCE NUMBER  —sss— ———gnteb2000—~C—“‘“‘“‘“‘“‘i‘;i;i‘<;<CSO 3 
\4 OUTCONVCBL9]*OUTSEG)S 00626300 4 
e |: ENDS 0002640C |1@ 
BIS ii: etl ot PROMS 8 OUT SEO noe Sree et iets Se Eels = eeedeces ne ine OO BAGO CY. ee ee ee were 6 
u , Rete ncnene 00026600 Z 
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10 IF DELTOG THEN IF SULRCESEW GEw STRIDELETE THEN % DELETE THIS SECTION 00026900 v1 
ee": BEGIN 000¢7000 "@ 
i ERT mere © 34 Uae (6 0) Ste Genie a 2 S Sudden ons, midi gek tinny cee lad Sos de yin ot ee OO WIE OO: elas om en tie a ee cae 12 
pal WHILE SOURCESEQ@ LEQ ENDELETE UO 00027260 13 
@ BEGIN 00027300 4@ 
: ne READCSOURCEFI i» 1O2AC*JCEGFSOURCE]2 oo 0 er 18 
re SOURCESEQ $= INPCUNVCAL9I)3 00027500 16 
eo” END WHILE STATEMENTS 000z2760C "@ 
NF oo tas, gic BNO GUE LETING SOURCEF ILE: SRC TLONG <c occer a5 manpnntetento Se war yarttiaiatestiles ee ta cree OOM ETT OO cca wir veasier pate, = eee ‘8 
18: IF MAKTAB THEN : 00027750 19 
@ IF NPTR $= NPTR *# 1 GTR 29 THEN & SeEGMEnT IS FILLED 00027800 L1@® 
eee ie es GTN. ae rat heats view ere erie eer ver ce eh Oe FOO Oty 0h «A Svs cr aie gence pee Ni “ 
pe WRITECNEWTARs 302\L 4) 23° CoGE8OOL 2a 
Or NPTRE=03 CouZcs810U 23@ 
ee ENDS Sei he eek Aten OI DON a eas saath 44 ene na nee nee ee wt Eo cme 24 
bs IF SMURCESE@ LSS GUTSEQ@ THEN % wRITE SOURCE FIRST. 00U2830C 2 
@ BEGIN 00Uz8400 | @ 
P __.SRITECOUTFILstOsACe})e 050 eT Oe eee 2 
IF MAKTAB THEN 00028550 2e 
@ NONPTR)#20 &@ CACTPaNCT41)C42 328164 & SYURCESEG(21221227)3 00028600 aI@ 
Oe READY SOURCE TL LOe et eI PRUE SOURCE I 5 cn ke ge ceded net ae ene OOP APOE on sgt ber po ee 30 
a1 SOURCESE@%=IF SFLG THEN INPCONVCAL9]) ELSE LRECS 00028800 a1 
Or GO TO MERGFILES: 00028900 ol @ 
be END a at ah MMe eA goatee, ess tI OOO ogee ta mia pete te eal he ee eee 33 
e: IF SOURCESEQ@ GTR GUTSEQ THEN % WRITE MERGE RECGRU FIRST 00029100 
@ 
e 
@ 
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ENO; 
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END PROGRAM, 
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